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172 


00P000* 




173 


000000' 




174 






175 






176 






177 






178 


000000' 




179 


000000* 


052524 040501 


180 


000005' 


000 


181 


000006' 


176500 


182 


000010' 


000300 


183 


000012' 


200 


184 


000013' 


000 


185 


000014' 


000003 


186 


000016* 


000000 


187 


000020* 


000000 


188 


000022' 


000000 


189 


000024' 


000000 


19P 






191 


000026' 


140000 


192 


000030* 


000500' 


193 


000032' 


000224' 


194 


000034' 


000000 


195 


000036* 


000001 


196 


000040' 


000000 


197 


000042' 


000000 


198 


000044* 


000000 


199 


000^)46' 


000000 


200 


000050' 


000000 


201 


000052* 


000000 


202 


000054' 


000000 


203 


000056' 




204 


000056' 


000000 


205 


000060' 


000000 


206 


000062' 


000000 


207 


000064' 


000000 


208 


000066' 


000000 


209 


000070' 


000000 


210 


000072' 


000000 


211 


000074' 


000000 


212 


000076' 


000000 


213 


000100' 


000000 


214 


000102* 




215 


000102' 


000000 


216 


000104' 




217 


000104' 


000000 


218 


000106' 




219 


000106' 


000000 


220 


000110' 


000000 


221 


000112' 


000562' 


222 


000114' 


000000 


223 


000116' 


000000 


224 


000120' 


000000 


223 


000122' 


000017 


226 




000040 


227 







MACYll 3fA(l052) 15"JUN»79 I2l3fc PAGF b 



lOMOD <TUAA >, 176500, 300, 4, 0,2, 1,17 

MODULE 140000, TUAA ,176500,300,4,0,2,1,17 

.TITLE TUAA DEC/Xll SYSTEM EXERCISEP MODULE 

DDXCOM VERSION 6 23-MAY-78 

.LIST BIN 



BEGINl 

MODNAm; 

XFLAGs 

ADPRJ 

VECTOPI 

BPlI 

BB2I 

DVIDll 

SRI J 

SR2I 

SR3I 

SR4t 

STAT! 

INITI 

SPOINTI 

PA5CNTI 

ICONTi 

ICOUNTI 

SOFCNTi 

HRDCNTI 

sorpAsi 

HRDPAS5 

SYSCNTI 

RANNUMI 

CONFIGl 

RESlI 

RES2i 

SVR0i 

SVRli 

SVR2i 

SVR3I 

SVR4I 

SVR5I 

SVRfit 

CSPAl 

SBADRI 

ACSRi 

WASADRI 

ASTATI 

ERBTYPI 

ASBi 

AWASI 

PSTRX8 

WDTOl 

WDFB! 

INTRI 

IDNUMf 



««»»»»»«»«»»»»*»««■»««■»»*««•»»«»»»**#»«•»#»»»*»»»■»»«*»«»»'»««»»*»*»*•» 



cASCXI 

.BYTE 

176500+0 

300*0 

,BYTE 

,BYTE 

2-^1 

OPEN 

OPEJ^ 

OPEN 

OPEN 

140001 

START 

MODSP 



1 



/TUAA / JMODULE NAME^ 

OPEN fUSED TO KEEP TRACK OF WBUFF USAGE 

nST DEVICE ADDB. 

J 1ST DEVICE VECTOR, 



OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

PESTRT 

OPEN 

OPEN 

OPEN 

17 

sPEPT 

,NLIST 



PPTY44-0 JIST BR LEVEL, 

PPTY0*0 1 2ND BR LEVEL, 

JDEVICE INDICATOR U 

jSWITCH REGISTER 1 

{SWITCH REGISTER 2 

{SWITCH REGISTER 3 

ISWITCH REGISTER 4 

ISTATUS WORD, 
{MODULE START ADDR, 
{MODULE STACK POINTER, 
{PASS COUNTER, 
{» OF ITERATIONS PER PASSssl 
{LOC TO COUNT ITERATIONS 
{LOC TO SAVE TOTAL SOFT ERRORS 
{LOC TO SAVE TOTAL HARD ERRORS 
{LOC TO SAVE SOFT ERRORS PER PASS 
{LOC TO SAVE HARD ERRORS PER PASS 
{9 OF SYS ERRORS ACCUMULATED 
{HOLDS RANDOM ff WHEN RAND MACRO IS CALLED 
I RESERVED FOR MONITOR USE 
{RESERVED FOR MONITOR USE 
{RESERVED FOR MONITOR USE 
{LOC TO SAVE R09 
{LOC TO SAVE Rl, 
{LOC TO SAVE R29 
{LOC TO SAVE R3, 
{LOC TO SAVE R4, 
{LOC TO SAVE P5, 
{LOC TO SAVE R6, 
{ADOR or CURRENT CSR, 
{ADDR OF GOOD DATA, OR 
{CONTENTS OF CSR, 
{ADDR OF BAD DATA, OR 
{STATUS REG CONTENTS, 
I TYPE OF ERROR 
{EXPECTED DATA, 
{ACTUAL DATA, 

{RESTART ADDRESS AFTER END OF PASS 
{WORDS TO MEMORY PER ITERATION 
{WOPDS FROM MEMORY PER ITERATION 
{# OF INTERRUPTS PER ITERATION 
{MODULE IDENTIFICATION NUMBER«8l7 
SPSIZ JMODULE STACK STARTS HERE, 



TUAA DEC/Xll SYSTEM EXERCISER MODULE 
XTUAA0«PU 15«JUN«79 12126 

228 

229 

230 

231 000224' 

232 
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sWOPD 
,LIST 
,ENDR 
MODSPI 



TUAA DFC/Xtl SYSTFM EXEPCTSFP MODULE 
XTUAA0.PU iS^-JuN^IQ 12126 



233 






234 






235 






236 


000224' 


00000C? 


237 


000226' 


00006*0 


238 


000230* 


000000 


239 


000232' 


000000 


2m 


000234' 


000000 


241 


000236' 


000000 


242 


000240' 


000000 


243 


000242' 


000000 


244 


000244' 


000000 


24S 






246 






24? 






248 






249 


000246' 


000000 


250 






25i 






252 






253 


000250' 


000000 


254 


000252' 


000002 


2§5 


000256' 


000000 


256 


000260' 


000000 


257 






258 


000262* 


000002 


2S9 


0002S6' 


000000 


260 


000270' 


000000 


261 






262 


000272' 


000000 


263 


000274' 


000000 


264 


000276* 


000000 


26S 


000300' 


000000 


266 


000302' 


000000 


267 


000304' 


000000 


268 


000306* 


000000 


269 


000310* 


000000 


270 


000312' 


000000 


271 


000314' 


000000 


272 


000316* 


000000 


273 


000320* 


000000 


274 


000322' 


000000 


27S 


000324' 


000000 


276 


000326' 


000000 


277 


000330' 


000000 


278 


000332' 


000000 


279 


000334' 


000010 


280 


000334' 


000000 


28J 


0003S6' 


000000 


282 


000360' 


000000 


283 


000362' 


000000 


284 


000364' 


000000 


281 


000366* 


000000 


286 


000370' 


000000 


287 






2S8 







MACSfll 306(105?) 15"JUN-79 
MODULF DATA SFCTTON 



.SSTTL WODULE DATA SECTION 
.»»«»« FLAGS «•«' tTC «»«»«»» 



PKSNTJ 


.WOPD 


PKPCVDI 


,KOPD 


LASTOPi 


.WORD 


FSTFLGI 


,WORD 


PCSRi 


.WORD 


RCDPI 


.WORD 


XMSRt 


.WORD 


XMDB! 


.WORD 


DV1DX8 


.WORD 



««»««. OTHER STORAGE 



SYSTATi ,WORD 



DPVt 


.WORD 




ASDRVI 


,BLKW 


2 




.WORD 







.WORD 





ASPDBTI 


,BLKW 


2 




.WORD 







.WORD 





RECI 


gWOPD 




PATRNI 


.WORD 




SUCCS; 


,WORD 




PKPTRI 


.WORD 




XSPTRl 


.WORD 




TBLTOPI 


.WORD 




TBLPTRl 


.WORD 




SNDPTRt 


.WORD 




SNDCNTt 


.WORD 




RCVPTRI 


.WORD 




PCPKNMi 


.WORD 




PKCHKDI 


.WORD 




RCVCNTI 


.WORD 




RCBCNTt 


.WORD 




XSPKNMt 


.WORD 




XSFLGI 


.WORD 




XiCNTi 


.WORD 






.BLKW 


8 


ERROPi 


.WORD 




ERRFLG! 


.WORD 




FRRERl 


.WORD 




ERRWDJ 


.WORD 




ATPAKi 


.WORD 




ATPAK2I 


.WORD 




BDBYTSI 


.WORD 





12136 FACE 8 



JPACKEI SENT 
JPACKET RECEIVED 
H».PASS»THPOUGH„TABLE FLAG 
JEXPECXING^FLAG„BYTE FLAG 
jPECV STATUS PEG. ADDR, 
JRECV DATA BUFFER ADDR, 
jTRANSMIT STATUS REG. ADDR, 
JTRANSMIT DATA BUFFER ADDR, 
jDRIVE CONFIGURATION 



ISYSTEM STATUS WORD 

,'BIT3aOUT»TO"LUNCH ERROR CCHKANS) 

fEITlsSELF TEST SENT 

;BIT0bCHKSUM ODD 

{CURRENT DRIVE NUMBER 

JASCII OF CURRENT DRIVE NUMBER 



jASCII OF # OF BAD BYTES 



fPECORD NUMBER 

JDATA PATTERN 

ISUCCESS CODE OF END PACKET 

ITOP OF CURRENT PACKET (ADDR.) 

IPOINTER TO NEXT XlFLG OR X$CNT 

JTOP or Op TABLE 

jPOINTER TO OP CODE IN OPTBL 

IPOINTER TO XMIT BUFFER 

|NUf«BER OF BYTES REMAINING TO SEND 

IPOINTER IN RECEIVE BUFFER 

j»OF PACKETS LEFT DURING RECIEVE 

|# OF PACKETS BEING CHECKED IN CHKANS 

jACTUAL COUNT USED IN RECEIVE 

ICOUNT USED IN CHECKANS 

jEXPEClED # OF PACKETS TOTAL 

ITHE EXPECTED FLAG BYTE OF 1ST PACKET 

lAND IT'S TOTAL BYTE COUNT 

^MULTIPLE PACKET EXPECTED FLAGS AND COUNTS 

jTHE TABLE OP CODE ON ERROR 

ITHE EXPECTED FLAG ON ERROR CPXSPTR) 

jERROR FLAG 

JCONTENTS OF DLV RCDB ON DLV ERROR 

jflpKPTR ON ERROR-IST 2 BYTES 

I9PKPTR4.2 ON ERROR««NEXI 2 BYTES 

iNUMBER OF BAD DATA BYTES (MAX. 128«) 



TUAA DEC/Xll SYSTEM EXERCISER MODULE 
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289 




290 000372* 000000 


291 000374' 004 


292 000375' 000 


293 




294 




29S 




296 




297 


000100 


298 


000100 


299 


000000 


300 


000001 


301 


000010 


302 


000011 


303 


000100 


304 


100000 


30S 


000000 


306 


000400 


307 




308 




309 




310 




311 




312 




313 




314 


000002 


315 


000020 


316 


000020 


317 


000023 


318 


000004 


319 


000001 


320 


000002 


321 




322 




323 




324 


000016 


325 


000012 


326 


000204 


327 


000222 


328 


000016 


329 




330 




331 




332 


000100 


333 


0000P3 


334 


0«0002 


335 


000005 


336 


000000 


337 


000001 


338 


0000(^7 


339 




340 




341 




342 


0fe500P»0 


343 


17772H 


344 


177767 



BRKWD8 .WORD 

INITWDI .BYTE 

.BYTE 



»«.««^ GENERAL EQUATES 



J 2 NULL BYTES 

UNIT BYTE 

IRSCONT EXPECTED HERE 



EI 




100 


DI 




100 


DSDATA 







DTAFLl 




1 


DTAFL2 




10 


DTAFLl 




11 


DTAFL4 




100 


CMNDFL 




100 


DRV0 







DRVl 




400 



.««.««.«, PROTOCOL EQUATES «»»«»«.»-=.«.«»».««»«».»«.«,«»«.««.s.*.«.«»«»«,«.«,»«>®«w»«s.^»»««.«.» 
jFLAG BYTE CODES? 



RSCMND 


s 


2 




PICONT 


s 


20 




RSXON 


s 


20 




PSXOFF 


m 


23 




RSINIT 


n 


4 




R$DATA 


n 


1 




RSEND 


% 


RSCMND 




jSIZESS 








PSNDSZ 


s: 


14. 


;END PACK SIZE 


PSMSIE 


m 


If*. 


JMESSAGE SIZE 


PSDASZ 


S3 


132. 


jDATA PACK SIZE 


RSDNSE 


B 


PSnASZ+PSNDSZ 


JDATA PLUS END PACK SIZE 


RSSNSZ 


U 


PSMSlE-l-4 


jPEI^D SIZE OF MESSAGE PACK 


.•OP CODESS 






FSSEND 


s 


1(?0 




RSSWR 


s 


3 




RSSPD 


3 


2 




PSSSEK 


s 


5 




R$$NO» 


s 


? 




KS$f-'IT 


B 


1 




PSSSLF 


s 


7 




; SUCCESS CODES 






FSOK 


s 


k! 


;GOnD SOCCKSS 


ESABO 


= 


-4q, 


;PAD CO^^MftND 


li.$NCRT 


s 


-Q , 


jNO CAFT. 



TUAA DEC/Xll SYSTEM EXERCISER MODULE 
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MODULE DATA SECTION 



343 


177770 


346 


177776 


347 


177740 


348 


000001 


349 


177765 


350 


177737 


351 


177720 


352 


177711 


353 


177757 


354 


177777 


3S5 


177757 


356 


177757 


357 


1777S7 


358 




359 





ESNONX 




"fig 


;N0 DRIVE 


E8PART 




»2, 


JE.O.M, 


E$SK 




••32s 


rSEEK ERROR 


E$TPY 






JPETRIES 


E$WLOC 




-It. 


JWRITE PROT, 


E8N0MO 




-339 


} MOTOR STOPPED 


ESCMD 




"48, 


jaBAD COMMAND 


E$PEC 




"-55, 


IBAD RECORD » SENT 


EICKS 




«17, 


jDATA CHECK ERROR 


EISLr 




""K 


fSELF TEST fAIL 


E8CKSM 




EfCKS 




t$m 




EICKS 




E8RD 




ESCKS 





TUAA DEC/Xll SYSTEM EXERCISER MODULE 
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MODULE DATA SECTION 



360 






361 






362 


000376* 


100007 


363 


000400* 


100003 


364 


000402* 


000001 


363 


000404^ 


000010 


366 


000406" 


000011 


367 


000410' 


000100 


368 


000412' 


100002 


369 


000414* 


100407 


370 


000416* 


100403 


371 


000420' 


000401 


372 


000422' 


000410 


373 


000424' 


000411 


374 


000426' 


000500 


375 


000430' 


100402 


376 


000432' 


177777 


377 






378 






379 


000434* 


100407 


380 






381 






382 






383 






384 


000436' 


0003S4* 


385 


000440' 


000272' 


386 


000442' 


000274' 


387 


000444' 


000314' 


388 


000446' 


000356' 


389 


000450' 


000300' 


390 


000432' 


000374' 


391 


0004S4' 


000362' 


392 


000456' 


000322' 


393 


000460' 


000324' 


394 


000462' 


000326' 


395 


000464' 


000330' 


396 


000466' 


000332' 


397 


000470' 


000320' 


398 


000472' 


000364' 


399 


000474' 


000366' 


400 


000476' 


177777 


401 







Test command table sja»w«9<Bw««>«iMB>®«»!»a»Biffl««»a>'B«9«»®«>«'™o«oraa»rae'®iwa»®w®®'»ra«»in«Ei»«» 



OPTBLl 



0PTBL2I 



»W0RD 
»W0RD 
.WORD 
a WORD 
.WORD 
.WORD 
,W0RD 
,W0RD 
9 WORD 
9 WORD 
9 WORD 

eWORD 

«WORD 

aWOPD 

»WORD 



Ri8SLFICMNDFL|DRV0 

R8$WRlCMNDrLiDRV0 

D8DATA|DTArLUDRV0 

D$DATAiDTArL2|DRV0 

D3DAfAiDTArL3!DRV0 

D8DATAiDTArL4IDRV0 

R$8ROiCMNDrLlDRV0 

RgSSLFtCMNDFLIDRVl 

RSSWRiCMNDFLlDRVl 

DSDATAtDTAFLilDRVl 

D8DAfA|DTAFL2iDRVl 

D8DATAIDTAFL3IDRV1 

D8DATAIDTAFL4IDRV1 

R88RDICMNDFLIDRVI 

»1 



ORlOPi eWORD R8$SLF1CHNDFL|DRV1 



«=»»««. TABLE FOR EXTENDED ERROR INFO am>Bamm«^mmaammmammawmm^«>«>ism«,m«,9«>s>ma 

fOP CODE IN COMMAND TABLE (OPTBL) 

I THE RECORD NUMBER 

ITHE DATA PATTERN 

jBYTE POINTER IN RECIEVE BUFFER 

I THE EXPECTED FLAG BYTE Of CURRENT .PACK 

IPOINTER TO TOP OF CURRENT PACKET 

{RESPONSE OF INIT OP (BIT15-BIT8) 

{CONTENTS OF DLV RCDB IF DLV ERROR 

|# BYTES UNRECEIVED, IF ANY 

fS BYTES EXPECTED CURRENT PACKET 

j# OF PACKETS EXPECTED 

JTHE EXPECTED FLAG BYTE OF 1ST PACKET 

I THE EXPECTED COUNT OF 1ST PACKET 

l» OF CURRENT PACKET BEING CHECKED 

J 1ST AND 2ND BYTES OF CURRENT PACKET 

J 3RD AND 4TH BYTES OF CURRENT PACKET 

i 



ERRTBLl ,WORD 


ERROP 


.WORD 


RFC 


«WORD 


PATRN 


.WORD 


RCVPTP 


.WORD 


ERRFLG 


,WORD 


PKPTR 


.WORD 


INITWD 


aWORD 


ERRWD 


ERFTB21 »WORD 


RCVCNT 


.WORD 


RCBCNT 


,WORD 


X8PKNM 


,word 


X8FLG 


bWORD 


X8CNT 


sWORD 


PKCHKD 


.WORD 


ATPAK 


.WORD 


ATPAK2 


»KORD 


-1 



TUAA ntC/Xll SYSTFM EXERCISFP MODULF 
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MAIN PPOGPAM CONTPOL 



SEQ kJfe'U 



402 










,SBTTL 


MAIN PROGPAM CONTPOL 




403 


0(^0500' 


016706 


177326 




STASTI 


MOV 


SPOINTiSP 


JTHE INIT or INITS 


404 


000504' 


016767 


177304 


177532 




MOV 


DVID1,DVIDX 


jCOPY DRIVE CONFIGURATION 


405 


000512" 


126737 


177404 


000^41 




O'PB 


IDNUM,(a»41 


JAPE WE THE LOAD DEVICE? 


406 


000520' 


001016 








bNE 


2S 


;N0 


407 


000522' 


105737 


000040 






T5TB 


p»40 


JYES-DRIVE 0? 


408 


000526' 


001004 








BNE 


IS 


.•NO 


409 


000530' 


042767 


000001 


177506 




BIC 


#PIT0,DVIDX 


J YES-DESELECT 


410 


000536* 


000407 








BP 


28 


.•CONTINUE 


411 


000540' 


122737 


000001 


000040 


ISS 


CMPB 


#l,S«40 


JNOT DR0»DR1? 


412 


000546* 


001003 








BNE 


2S 


INO-SOME OTHER DR 


413 


000530' 


042767 


000002 


177466 




BIC 


iBiTlfDVIDX 


JYES DESELECT 


414 


0005S6' 


004767 


000310 




2SI 


CALL 


SYSINI 


;SET VECTOR GET CONFIG, 


415 


000562' 


000240 






RESTPTS 


NOP 




JMAIN LOOP 


416 


000564* 


104417 


000000* 






RANDS 


rBEGIN 




417 


000570* 


016767 


17726^ 


177474 




MOV 


PANNUMfPEC 


J GET RECORD # 


418 
419 

420 


000576' 


042767 


177000 


177466 




BIC 


»177000#PEC 


JSIZE IT FOR TU58 


000604* 


104417 


000000' 






PANDS 


BEGIN 




431 


000610' 


016767 


177240 


1774S6 




MOV 


RANNUM,PATRN 


J PROCURE DATA 


422 


000616* 


042767 


177400 


177450 




BIC 


«177400#PATPN 


n-BYTE IT 


423 
424 


000624* 


004767 


000435 






CALL 


DECOD 


; INTERPRET OPERATION FROM TABL 


425 
426 


000630' 


004767 


001652 




PSTRT2I 


CALL 


CLRBUF 


fZERO RECEIVE BUFFER 


42? 


000634' 


004767 


000100 






CALL 


GVNTAK 


;SEND PACKETf RECEIVE RESPONSE 


428 


000640' 


004767 


001666 






CALL 


CHKANS 


J INTERPRET RESPONSE 


429 


000644* 


005767 


177510 






TST 


ERRER 


lERROR? 


430 
431 
432 


0006S0' 


001413 








BEQ 


13 


|N0 


000652' 


016767 


177426 


177426 


3SS 


MOV 


TBLTOP,TBLPTR 


,YES, "">1ST OPERATION, 


433 


000660* 


005067 


177474 






CLR 


ERRER 


1 RESET ERROR FLAG 


434 


000664' 


003067 


177356 






CLP 


SYSTAT 


PRESET SYSTEM STATUS 


435 


000670" 


005067 


177212 






CLR 


ERPTYP 


»RESET ERROR TYPE 


436 


000674' 


004767 


001372 






CALL 


DOBRK 


lINIT DEVICE 


437 


000700' 


004767 


000402 




l$l 


CALL 


DECOD 


^DECODE NEXT OPERATION 


438 


000704' 


00S767 


177320 






TST 


LASTOP 


jDONE ONE TABLE'S WORTH? 


439 


000710' 


001747 








BEQ 


RSTRT2 


;NOT YET 


440 


000712' 


104413 


000000* 






ENDITI, BEGIN 


ISIGNAL END OF ITERATION, 


441 
















{MONITOR SHALL TEST END OF PAS 


442 


000716' 


000721 








BR 


RESTRT 


IKEEP ON 


443 










.»«»«»«. 








444 


000720' 


042777 


00010'<) 


177306 


DPOPs 


BIC 


»DI|9RCSR 


ISHUT OFF 


445 


000726* 


042777 


000100 


177304 




BIC 


#DI,gXMSP 


;all interrupts 


446 


000734* 


104410 


000000' 






END$, 


3EGIN 


f 


447 










.«,»■»»«» 


«.s.»»a»a. 
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448 
449 
4S0 
451 
432 
433 
454 
453 
456 
437 
458 
459 
460 
46i 
462 
463 
464 
46S 
466 
467 
468 
469 
470 
471 
472 



000740* 
000746* 
000732* 
000756' 
000762* 
000770* 
000776* 
001004' 
001012* 
001020* 
001026" 
001034* 
001034' 
001040* 
001044* 
001030* 
001052' 
0010S2* 
0010S6* 
0010S2* 
00106S* 
001070' 



012767 
003067 
005067 
00S067 
016767 
016767 
012767 
012767 
012767 
0S2777 
0S2777 

104407 
104407 
005767 
00177S 

104407 
104407 
003767 
001771 



1772S2 

177250 

177314 

177344 

177332 

000330* 

005122' 

004714* 

000100 

000100 



1771S4 



177332 
177320 
177276 
177302 
177270 
177212 
177200 
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GVNTAK I MOV 
CLR 
CLR 
CLR 
MOV 
MOV 
MOV 
MOV 
MOV 
BIS 
BIS 



BREAKS 
BREAKS 
TST 
BEQ 

BREAK! 

BREAKS 

TST 

BEQ 

RTS 



#1,FSTFLG 

PKSNT 

PKRCVD 

SUCCS 

X$CNT,RCVCNT 

XSPKNM,RCPKNM 

«X$FLG,X$PTR 

#RCVBUF#RCVPTR 

#TRBUF,SNDPTR 

#EIfiXMSR 

#EI,|RCSR 

, BEGIN 
BEGIN 
PKSNT 
1$ 



, BEGIN 

BEGIN 

PKRCVD 

2S 

PC 



I SET IST^BYTE FLAG 

IPACK NOT SENT YET 

jPACK NOT RECEIVED YET 

;N0 SUCCESS CODE YET 

jCOPY » BYTES TO RECIEVE 

JCOPY « PACKETS fO RCV 

ICOPY 1ST FLAG BYTE ADDR, POINTER 

|"»>TOP OF RECEIVE BUFF 

,»,»>TOP OF XMIT BUFFER 

)SET UP TO SEND 

lAND RECEIVE 

I TEMPORARY RETURN TO MONITOR 99,8 
ITHEN CONTINUE AT NEXT INSTRUCTION^ 
;DONE SENDING? 
fNO 

{TEMPORARY RETURN TO M0NIT0R,«9» 
JTHEN CONTINUE AT NEXT INSTRUCTION, 
;DONE RECEIVING? 
I NO 
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473 
474 

475 


001072' 


016700 


176712 




,SBTTL SYSTNI 
SYSINIJ MOV 


/ SYSTEM (MODULE 
VECTOR, R0 


J INIITIALItAlIUiv 
jSfcT UP VECTORS! 


476 


001076' 


012720 


0()2f.7n' 




MOV 


#PCVHNDiCR0)+ 


JPECEIVE ROUTINE 


477 


00U02* 


116720 


176704 




MOVB 


BP1,(P0)* 


jAND PRIORITY 


478 


001106' 


105720 






TSTP 


{P0) + 


;-->XMIT VECTOR ADDR 


479 


001110' 


t'i2720 


002034' 




MOV 


SSNOHND, (P0)* 


;SET UP SEND ROUTINE ADDR 


480 


001 114* 


1 16710 


176672 




MOVB 


BPli9P0 


JAND PRIORITY 


481 


001120* 


016700 


176662 




MOV 


ADDP,R0 


jGET DEVICE ADDRESSESI 


482 


001124' 


010067 


177104 




MOV 


P0#PCSR 


; / 


483 


001130* 


005720 






TST 


(P0) + 


J / 


484 


001132' 


010067 


17710«^ 




MOV 


R0,RCDB 


J / 


485 


001136' 


005720 






TST 


CR0)* 


J / 


486 


001140' 


010067 


177P74 




MOV 


P0,XMSP 


»• ^ 


487 


001144' 


005720 






TST 


CP0)-^ 


1 / 


488 


001146* 


010067 


177070 




MOV 


P0,XMDB 


1 / 


489 


001152' 


032767 


000001 


177064 


BIT 


#BIT0,DVIDX 


jDR0 SELECTED? 


490 


00116C' 


001416 






BEO 


IS 


|N0 


491 


001162' 


012767 


000376' 


177114 


MOV 


«CPTBL,TPLTOP 


|YES»TA8LE STARTS AT DR0 OPERATIONS 


492 


001170' 


012767 


177777 


177216 


MOV 


8"l,OPTBL2 


IPRESET AS NO DRl 


493 


001176' 


032767 


000002 


177040 


BIT 


«BITl,DVIDX 


jSELECTED HOWEVER? 


494 


001204' 


r0l420 






BEQ 


SY5SET 


|NO"ALL SET 


495 


001206' 


016767 


177222 


177200 


MOV 


DP10P,OPTBL2 


|YES»INSEPT OP CODE 


496 


001214' 


000414 






BR 


SYSSET 


JCONTINUE 


497 


001216' 


032767 


000f*02 


177020 


181 BIT 


#PIT1,DVIDX 


jHEREffiNO DR0e.9ORl? 


498 


001224' 


001002 






BNE 


28 


JYES-'CONTINUE 


499 


001226' 


004767 


177466 




CALL 


DROP 


fNO DRIVES»NO WAY 


500 


001232' 


012767 


000414* 


177044 


2$S MOV 


iOPTBL2,TBLTOP 


JJUST DR1"T0P IS DRl START 


501 


001240* 


016767 


177170 


177146 


MOV 


DP10P,0PT8L2 


J INSERT OP CODE 


502 


001246* 


016767 


177032 


177032 


SYSSETI MOV 


TBLTOP»TBLPTR 


>NOW SET POINTER TO TOP, 


503 


001254' 


004767 


001012 




CALL 


DOBRK 


UNIT UNIT 


504 


001260' 


005067 


177074 




CLP 


EPRER 


lAND ERROR NUMBER 


505 


001264' 


005067 


177072 




CLR 


EPPWD 


;AND ERROR WORD 


506 


001270' 


005067 


177074 




CLP 


BDBYTS 


JAND BAD BYTES 


507 


001274' 


003067 


176746 




CLP 


SYSTAT 


jAND SYSTEM STATUS 


508 


001300' 


005067 


176602 




CLR 


ERRTYP 


JAND ERROR TYPE 


509 


001304' 


000207 






PT5 


PC 
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510 


001306' 


027727 


176774 


177777 


DECODI CMP 


9TBLPTR,#»1 


JLAST OP CODE PROCESSED? 


511 


001314" 


001007 






BNE 


1$ 


;N0 


512 


001316* 


016767 


176762 


176762 


MOV 


TBLTOP,TBLPTP 


jYES»POINT TO TOP 


513 


001324' 


005267 


176700 




INC 


LASTOP 


JSET FLAG 


514 


001330" 


000167 


000476 




JMP 


DECRET 


JEXIT 


515 


001334' 


012700 


004714* 




l$l MOV 


#TRBUF»R0 


JPOINT TO TOP OF TRANSMIT BUFFER 


316 


001340* 


00S777 


176742 




TST 


PTBLPTR 


jIS IT COMMAND? 


517 


001344' 


100460 






BMI 


DECCMD 


JYES 


518 


001346* 


012700 


004714' 




MOV 


#TRBUF,P0 


jNO-THEREFOPE IS DATA PACKl 


519 


0013S2' 


112710 


000001 




MOVE 


SPSDATA,9R0 


JFLAG BYTE 


520 


001336* 


112760 


000200 


000001 


MOVB 


«128,,1CR0) 


•BYTE COUNT 


521 


001364* 


012702 


000200 




MOV 


#128, ,R2 


IFOR DATA INSERTION COUNT 


522 


001370' 


005720 






TST 


(R0)4. 


jGET BY THE BYTE COUNT 


523 


001372* 


116720 


176676 




2$S MOVB 


PATRN,(R0)+ 


JAND INSERT DATA 


524 


001376* 


005302 






DEC 


R2 


JUNTIL 


S2S 


001400' 


001374 






BNE 


2S 


JCOMPLETED 


526 


001402* 


012767 


000204 


176702 


MOV 


#332e»SNDCNT 


JTOTAL COUNT FOR SENDING 


527 


001410' 


012701 


000202 




MOV 


#130, ,R1 


JCOUNT FOR CHECKSUM ROUTINE 


528 


001414* 


012700 


004714' 




MOV 


#TPBUF,R0 


jPOINT TO TOP AGAIN 


529 


001420' 


004767 


002072 




CALL 


CHKSUH 


JCALC, THE CHECKSUM 


530 


001424* 


010110 






MOV 


R1,CP0) 


jRETURNED IN Rl WITH R0 AS POINTER 


531 


001426* 


032777 


000100 


176652 


BIT 


#DTAFL4,9TBLPTR 


JLAST DATA PACKET? 


S32 


001434' 


001412 






BEQ 


3S 


jNO, EXPECT CONTINUE, ETC* 


533 


001436' 


012767 


000002 


176664 


MOV 


»R$END,XSFLG 


jYESi EXPECT END PACK 


534 


001444* 


012767 


000016 


176660 


MOV 


#P|NDSE,X$CNT 


jTHIS BIG 


535 


0014S2* 


012767 


000001 


176646 


MOV 


#liXSPKNM 


JAND ONLY 1 PACKET RESPONSE 


536 


001460' 


000554 






BP 


DECRTl 


jEXIT 


537 


001462' 


012767 


000020 


176640 


3SI MOV 


§RSCONT,X$FLG 


JHERL NOT LAST PACKET 


538 


001470' 


012767 


000001 


176634 


MOV 


«1,XSCNT 


JEXPECTI CONTINUE? 1 BYTE 


539 


001476* 


012767 


000001 


176622 


FOV 


#1,XSPKNM 


fl PACK 


540 


001504' 


000542 






BR 


DECRTl 


jFXIT 


541 


001506' 


000240 






OECCMDt NOP 




JHERE WE BUILD A COMMAND PACKETl 


542 


001510' 


112710 


000002 




MOVB 


#P8CMND,aR0 


J FLAG BYTE 


543 


001514' 


112760 


000012 


000001 


MOVB 


#R$MSIZ»1CR0) 


JMESSAGE SIZE 


544 


001522' 


117760 


176560 


000002 


MOVB 


»TBLPTR,2(P0) 


jTHE OP CODE 


545 


001530' 


105060 


000003 




CLRB 


3(P0) 


JNOT VERIFY 


546 


001534' 


105060 


0M0004 




CLRB 


4CH03 


fPRESET TO DRIVE 


547 


001540* 


005067 


176504 




CLR 


DPV 


IDITTO 


548 


001544' 


032777 


000400 


176534 


BIT 


«RIT8,aTBLPTR 


fWAS DRIVE 1, THOUGH? 


549 


001552' 


001404 






BEO 


4$ 


fNO 


550 


001554' 


105260 


000004 




INCB 


4CR0) 


lYES^-SELECT DRl 


551 


001560' 


005267 


176464 




INC 


DRV 


JDITTO 


532 


001564' 








4SI 






553 












554 














jCONVERT DRV TO ASCII AND 


555 














JSTORE AT ASDPV 


556 


001564' 


104421 


000000* 


000250' 


BTODS 


,BEGrN,DRV,ASDRV 




557 


001572* 


000252* 












558 










.#»»»««*»«»«4J»***»«#»«-»«#»««»»»»*»«»#»«««»*»«»»«»»«»»««**« 


559 


001574' 


105060 


000005 




CLRB 


5CR0) 


;N0 MODIFIERS 


560 


001600' 


005060 


000006 




CLP 


ecRi^) 


JHO SEQUENCE n 


561 


001604' 


012760 


0t1t00P' 


000010 


MOV 


»512.;8,(P0) 


JUSF STANDARD BLOCK SIZE 


562 


001612' 


fil676^ 


176454 


000012 


MOV 


P^Xfi^ABi^') 


JINSERT RECORD NUMBER 


563 


8^01620" 


012701 


WO0£?.t2 




MOV 


«PSMSIZ,P1 


5MESSAGP- PACKET SIZE 


564 


0^^1624* 


C105721 






TST 


(Ri) + 


rPLUS BYTE COUNT AND FLAG 


565 


001626' 


012767 


OO0f»16 


176456 


MOV 


8PSSNSZ,SMDCNT 


; SIZf: TO SEND 
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SEQ 00IS 



566 


001634' 


004767 


001656 






CALL 


CHKSUM 


567 


001640' 


010110 








MOV 


R1,9R0 


568 
569 


W01642' 


042767 


000002 


176376 




BIC 


SBlTliSYSTAT 


570 


001650' 


122777 


000007 


176430 




CMPR 


«RSSSLF,0TBLPTP 


571 


0016S6* 


001015 








BNE 


IS 


572 


0P1660* 


052767 


000002 


176360 




BIS 


UBITUSySTAT 


573 


001666' 


012767 


000002 


176434 




MOV 


»RSFND,XSFLG 


574 


001674' 


012767 


000016 


J76430 




F.OV 


#RSNDSE,XICNT 


575 


001702' 


012767 


000001 


176416 




MOV 


«lfX8PKNM 


576 


001710' 


000440 








BR 


DECPTl 


377 


001712' 


122777 


000003 


176366 


IS! 


CMPB 


«RS$WR,?iTBLPTR 


578 


001720' 


001012 








PFE 


2S 


579 


001722' 


012767 


000020 


176400 




MOV 


»PSCONT#XSFLG 


580 


001730' 


012767 


000001 


176374 




MOV 


#1,XSCNT 


581 


001736' 


012767 


000001 


176362 




MOV 


»l,X$PKNM 


5S2 


001744* 


000422 








BP 


DECPTl 


583 


001746* 


0^5000 






281 


CLP 


R0 


584 


0017S0' 


012703 


00033^' 






MOV 


0$FLG,R3 


585 


0017S4' 


012723 


000001 




3$S 


MOV 


»PIDATA»(R3)4. 


586 


0^1760' 


012723 


000204 






MOV 


#132,»(R3)+ 


587 


001764* 


005200 








INC 


R0 


588 


001766' 


022700 


000004 






CMP 


«4,,B0 


589 


001772' 


001370 








BNE 


3S 


590 


001774' 


012723 


000002 






HOV 


SR|END#CR3)* 


591 


002000' 


012713 


0t>0016 






MOV 


«IRSNDSZ»(R3} 


592 


002004* 


012767 


000005 


176314 




MOV 


85#X$PKNM 


593 

594 


002012' 


017767 


176270 


176334 


DECBTil 


MOV 


^TBLPTR,ERBOP 


595 


5'id2020' 


062767 


0P00P.2 


176260 




ADD 


S2#TBLPTR 


596 


002026' 


005067 


176176 






CLP 


LASTOP 


597 


002032* 








DECPETI 






598 


002032* 


000207 








PTS 


PC 



>GET CHECKSUM, RETURNED 

JIN Rl WITH R0«»>WHERE 

jTHF CHECKSUM tiOM GOES 

JNOT SELF TEST PRESET 

,WAS THE OPERATION SELF TEST? 

fNO 

fYES"SELF TEST FLAG SET 

JYES-EXPECT END PACK 

|0F PROPER SIZE 

JAND ONLY 1 PACKET 

lEXIT 

INOT SELF TEST^WAS IT S»^RITE? 

>N0 

fYES-EXPECT CONTINUE 

lAND 1 BYTE 

I AND 1 PACKET 

JEXIT 

JHERE TRANSACTION MUST BE READ 

iGET ADDH, OF XSFLG 

I INSERT TOTAL OF 

;4 DATA FLAG BYTES EXPECTED, 

ISANDWICHED WITH 

|THE COUNT OF 

lEACH 

lIHEN THE END PACK 

JAND ITS SIZE 

ICORRECT TO 5 EXPECTED PACKS 

jCOPY OP CODE IN CASE ERROR 
lUPDATE POINTER FOR NEXT OPERATION 
jINDICATE STILL IN TABLE 
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599 










,SBTTL 


/ INfE 


PRUPT SERVICE ROU 


TINES / 


600 


















601 


002034* 


117777 


176230 


176200 


SNDHNDI 


MOVB 


0SNDPTR,9SXMDB 


jOUTPUT BYTE 


t^2 


002042* 


00S267 


176242 






INC 


SNDPTP 


l»»>NEXT 


603 


002046' 


005367 


176240 






DEC 


SNDCNT 


J ANY MORE? 


604 


002052' 


001005 








BNE 


IS 


JYES 


605 


002054' 


005267 


176144 






INC 


PKSNT 


|NO«SET FLAG 


606 


002060' 


042777 


000100 


176152 




BIC 


#DI,@XMSR 


>AND NO MORE INTS 


607 


002066' 


000002 






1$S 


PTI 




)FAST AND FURIOUS 


608 
609 


002070' 


042777 


000100 


176136 


PCVHNDS 


BIC 


#DI,SPCSR 


jKILL ANY NESTING 


610 


002076' 


017767 


176134 


176256 




MOV 


^RCDB,EPRWD 


JGET BYTE-S-EBBOR 


611 


002104* 


116777 


1762S2 


176202 




MOVB 


EPRWD,0RCVPTP 


jSAVE BYTE IN BUFFER 


612 


002U2* 


005767 


176244 






TST 


EPRWD 


JERPOBI 


613 


002116* 


100003 








BPL 


RCVOK 


jNO 


614 


002120' 


005267 


176102 






INC 


PKRCVD 


lYES SET RCVD FLAG 


615 


002124' 


000461 








BR 


RCVRET 


jEXIT 


616 


002126' 


005067 


176230 




RCVOKi 


CLR 


EPRWD 


fNO«.CLEAR ERROR 


617 


002132' 


005767 


176074 






TST 


FSTFLG 


}IS THIS A 1ST BYTE? 


618 


002136' 


00S423 








BEQ 


IS 


fNO 


619 


002140' 


005067 


176066 






CLP 


FSTFLG 


jYES-CLEAR 


620 


002144' 


127777 


176132 


176142 




CMpB 


0XSPTR,5>RCVPTR 


JWAS IT THE FLAG WE EXPECTED? 


621 


002152' 


001415 








BEQ 


IS 


jYES^CONTINUE 


622 


002154' 


012767 


000001 


176140 




MOV 


«1,RCVCNT 


lOOPS-PRESET FOR EXIT 


623 


002162' 


012767 


000001 


176126 




MOV 


«1,RCPKNM 


jIS LAST PACKET, TOO, 


624 


002170* 


127727 


176120 


000002 




CMPB 


PRCVPTH,#PSEND 


fWAS IT A PREMATURE END PACK? 


625 


002176' 


001003 








BNE 


IS 


jNO WAY 


626 


002200' 


012767 


000(^16 


176114 




MOV 


#pSNDSEfPCVCNT 


JYES USE CORRECT COUNT 


627 


002206* 


005267 


176102 




ISl 


INC 


RCVPTR 


j»«.>NEXT SLOT 


628 


002212' 


005367 


176104 






DEC 


RCVCNT 


JMORE OF THIS PACKET? 


629 


002216' 


001016 








BNE 


2S 


5 YES 


630 


002220' 


005367 


176072 






DEC 


RCPKNM 


jNO-'ANY MORE PACKETS? 


631 


002224* 


001417 








BEG 


3S 


;N0 


632 


002226' 


062767 


000006 


176046 




ADD 


#6,X$PTR 


;YES«">NEXT EXPECTED COUNT 


633 


002234* 


017767 


176042 


176060 




MOV 


3XSPTR, RCVCNT 


jGET fJEW COUNT 


634 


002242* 


162767 


000002 


176032 




SUB 


#2iX6PTP 


j««>NFXT EXPECTED FLAG 


635 


0022S0* 


005267 


175756 






INC 


FSTFLG 


jSAY IT'S 1ST BYTE 


636 


002254* 


052777 


0P0100 


175752 


2$l 


PIS 


8FI,?RCSR 


;0K TO RE'ENABLE INTS* 


637 


002262' 


000402 








BP 


RCVRET 


jQUITj QUICKLY 


638 


002264' 


4^'05267 


175736 




3SI 


INC 


PKRCVD 


jHEPt LAST PACKET RCV'D 


639 

640 


002270* 


1)00002 






PCVPETs 


PTI 




lEXIT 
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SEQ 01^17 



641 










642 










643 


002272' 


000240 






644 


002274' 


105067 


176075 




64S 


002300' 


042777 


000100 


175732 


646 


002306' 


042777 


000100 


175720 


647 


002314' 


052777 


000001 


175716 


648 


002322' 


012704 


000010 




649 


002326' 








650 


002326' 


104407 


000000' 




651 


002332' 


104407 


000000* 




652 


002336' 


10S777 


175676 




6S3 


002342' 


100371 






654 


002344' 


116777 


176022 


173670 


653 


002352' 


003304 






636 


002334* 


001364 






657 


002336* 


042777 


000001 


175634 


658 


002364' 


017704 


175646 




659 


002370' 


012704 


000002 




660 


002374* 








661 


002374* 


104407 


000000' 




662 


002400' 


104407 


000000' 




663 


002404' 


105777 


175630 




664 


002410' 


100371 






665 


002412' 


116777 


175756 


175622 


666 


002420' 


005304 






667 


002422* 


001364 






668 


002424' 








669 


002424* 


104407 


000000' 




670 


002430' 


104407 


000000* 




671 


002434' 


105777 


175574 




672 


002440' 


100371 






673 


002442* 


117767 


175S70 


175725 


674 


002450' 


126727 


173721 


000020 


675 


002436* 


001412 






676 


002460' 


004767 


001126 




677 


002464* 


012767 


000034 


173414 


678 










679 


002472' 


10440S 


000000* 


000436 


680 










681 










682 


002300' 


004767 


176214 




683 


002504' 








684 


002504' 


000207 







«SBTTL UTILITY SUBROUTINES 
DOBRKi 



JSEND INIT TO DEVICE 

ISTART FRESH 

;KXLL SEND 

JKILL RECEIVE 

•SET "BREAK" 

JSET COUNT 

jTEMPORABY RETURN TO MONITOR,,,, 
JTHEN CONTINUE AT NEXT INSTRUCTION, 
IREADYI 

;no 

isend null 

imore nulls to send? 

I YES 

|NO»CLEAR "BREAK" 
{CLEAR POSSIBLE GARBAGE 
JNUMBER or «INITS" TO SEND 

f TEMPORARY RETURN TO MONITOR*,.* 

ITHEN CONTINUE AT NEXT INSTRUCTION, 

IREADY TO SEND! 

I NO 

|YES«SEND 

{MORE? 

lYES-COHTlNUE 

ITEMPORARY RETURN TO MONITOR,, 9, 
JTHEN CONTINUE AT NEXT INSTRUCTION^ 
iREADY TO RECEIVE? 
;no 

lYES-GET RESPONSE 
JIS CONTINUE! 

}Y£S 

|NO»PRiPARE EXTENDED ERROR INFO^ 

ICODE FOR "CAN NOT INITIALIZE" 
I »»*#»«*»»»»»»»»»«»»««»«»*»»»■»»»'»»*»»'»«»»««***«»»»«*»*'»««»»«**«« 
HRDERI, BEGIN, ERRTBL |CAN»T INIT 



NOP 




CLRB 


INIT«D*l 


PIC 


»DI,SXMSR 


BIC 


#OI,iPCSR 


BIS 


«BIT0,fXMSR 


MOV 


S8,,R4 


BREAKS 


BEGIN 


BREAKS 


rBEGIN 


TSTB 


9XM5R 


BPL 


1$ 


MOVE 


BRKWDi&XMDB 


DEC 


R4 


BNE 


IS 


BIC 


#BIT0»iXMSR 


MOV 


0PCDB,P4 


MOV 


#2#R4 


BREAK$ 


,BEGIN 


BREAKS 


rBEGIN 


TSTB 


9XMSR 


BPL 


2$ 


MOVB 


INITWD,*XMDB 


DEC 


R4 


BNE 


2$ 


BREAKS 


,BEGIN 


BREAKS 


iBEGIN 


TSTB 


fRCSR 


BPL 


3$ 


MOVB 


iRCDB,INITWO+l 


CMPB 


INIfWD*l,#RSCONT 


BEQ 


4$ 


CALL 


ERRSET 


MOV 


#34iERRTYP 



CALL DROP 
RTS PC 



{FATAL 



TUAA DEC/Xll 
XTUAA0,P11 



SYSTEM EXERCISER MODULE 
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6SS 
686 
687 
698 
689 
690 
691 
692 
693 



002506* 000240 

002510' 012703 

002514 

002520 

002522 

002526 



012704 
009023 
162704 
001374 



005122* 
001036 
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UTILITY SUBROUTINES 

{MODULE TO ZERO THE 542^ BYTE RECEIVE BUFFER "RCVBUF" 

{ZEROES RECEIVE BUFFER 

{GET ADDRESS 

{AND THE SIZE 

{CLEAR 

{2 BYTES LESS 

{PR IF MORE 



CLRBU 


Fl NOP 






MOV 


#BCVBUF,R3 




MOV 


#S42«»R4 


1$I 


CLR 


(R3) + 




SUB 


»2,R4 




BNE 


13 



002530' 000207 
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SEQ 0019 



694 








69S 








69§ 


002532' 


000240 




697 


002534' 


005067 


175560 


698 


002S40' 


012700 


00S122* 


699 


002544* 


016702 


175556 


700 


0025S0' 


012703 


000330* 


701 


002554* 


010301 




702 


0025S6* 


062701 


000002 


703 


002562' 


010067 


175512 


704 


0025S6* 


003367 


17SS36 


705 


002S72' 


011167 


175526 


706 


002576* 


0W4767 


001010 


70? 


002602* 


121013 




708 


002604* 


001037 




709 


002606* 


121027 


000020 


710 


002612* 


001500 




71i 








712 


002614* 


016704 


175504 


713 


002620' 


003744 




714 


002622* 


004767 


001046 


71S 


002626' 


103012 




716 


002630' 


104403 


000000* 004536 


717 








718 


002636' 


104405 


000000* 000436 


719 








720 


002644* 


012767 


177777 175S06 


721 


002693" 


000473 




722 


002654* 


122710 


000002 


733 


002660" 


001003 




724 


003662' 


004767 


000240 


7as 


002666* 


000467 




1?26 


002670* 


122710 


003001 


727 


002674* 


0010S6 




728 


002676* 


004767 


001032 


729 


002702* 


000444 




730 








731 








732 


002704* 


000240 




733 


002706* 


122710 


000004 


734 


002712* 


001012 




735 


002714* 


104403 


000000* 004370 


736 








737 


002722* 


104405 


000000* 000436 


738 








739 


002730* 


012767 


177777 173422 


740 


002736* 


000443 




741 








742 


002740* 


122710 


000002 


743 


002744* 


001032 




744 








74S 


002746* 


012704 


000016 


746 


002752* 


003744 




747 


002754* 


004767 


000714 


748 








749 


002760* 


103403 





IMODULE TO INTERPRET ANY RESPONSE FROM DEVICE, 

jEVALUATE THE TOTAL RESPONSE FROM UNITl 

|» OF PACKS INTO TRANSACTIONS0, 

iGET BUFFER ADDR, 

JAND » or PACKETS EXPECTED 

jADDRESS OF iST EXPECTED FLAG 

ICOPY TO Rl 

,NOW Ri»«>XSiCNT FOR 1ST PACKET 

JHERE R0«»>TOP OF PACKET 

lONE MORE PACK INTO RESPONSE 

ICOPY COUNT 

}PREP FOR ERROR 

1 1ST BYTiBlXPlCTEDI 

lUH OH,,,SRANCH 

?0K, 18 IT I BYTll 

>YES«,,0NT0 NEXT PACK 

|NOf 30 > 1 BYTE (NEVER EXPECT INIfl) 

}S0 THEN USE EXPECTED COUNT 

»ADJUST FROM RECIEVE COUNT TO CHECKSUM CNT 

ICHECK THE CHECKSUM 

;N0 CARRY, », NO INCORRECT 

fASCII MESSAGE CALL WITH COMMON HEADER 

J »««■»#«»»##»<»»»*«»«•»»«*«■»#«»««##»»»*»»»■»*»»»«•»«#»»»«*###»«. «i»»»-»» 

HRDERg, BEGIN, ERRTBL ^CHECKSUM ERROR 



CHKANSI NOP 




CLR 


PKCHKD 


MOV 


»PCVBUF,R0 


MOV 


XSPKNM,R2 


MOV 


#X$FLG,P3 


MOV 


R3,R1 


ADD 


»2iPl 


ISI HOV 


R0#PKPTR 


INC 


PKCHKD 


MOV 


9RliRCBCNT 


CALL 


EPRSET 


CMPB 


iR0»iR3 


BNE 


S$ 


CMPB 


fp0,#RSCONT 


BEQ 


7S 


MOV 


RCBCNT,R4 


TST 


■-CR4) 


CALL 


CKCKSM 


BCC 


2$ 



MSGNg, BEGIN, CHKSMR 



MOV 


$»l,iRRER 


f ERROR FLAG 


BR 


CHKRET 


lEXIT 


CMPB 


#R8END,(R0) 


lEND PAKf 


BNE 


3$ 


INO 


CALL 


CHKSUC 


1 YES-SEE If SUCCESS CODE VALID 


BR 


CHKRET 


lEXIT 


CMPB 


#R$DATA,®R0 


(DATA PAKI 


BNE 


OTLERR 


INO 


CALL 


COMPAR 


|YES"CHECK DATA 


BR 


71 


fON TO NEXT PACK 



NOP 

CMPB #R«INIT»iR0 

BNE 6$ 

MSGN8, BEGIN, RCINIT 



iHERE CHECKS UNEXPECTED RESPONSE 

UNIT? 

fNO 

lASCII MESSAGE CALL WITH COMMON HEADER 



HRDER8, BEGIN, ERRTBL iINIT RECIEVED 

MOV #»1,ERREP jFATAL 
BR CHKRET 



CMPB 
BNE 

MOV 
TST 
CALL 



«RSEND,(R05 
OTLERR 

#R$NDSZ,R4 

■''(R45 

CKCKSM 



lEND? 

JNO-OIIT TO LUNCH 

jYES-TOTAL SIZE MINUS 
JTWO (THE CHKSUM) 
iCHECK IT 

I OOPS 
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7S0 
7§i 
752 
7S3 
7S4 
755 
7SS 
7S7 
7S8 
7S9 
760 
7Si 
762 
763 
764 
765 
766 
767 
768 
769 
770 
771 
772 
773 
774 
775 
776 
777 
778 
779 
780 
781 
782 
783 
784 
78S 
786 



002762* 
002766* 



002770' 
002770* 



003004' 
003012* 

003014* 
003016" 
003020* 
003024* 
003026* 
003030* 

003032* 
003040* 
003046* 
0030S2* 
003054* 

003062* 

003070* 

003072* 
003100* 
003102' 
003110* 



004767 000140 
000427 



CALL 
BR 



CHKSUC 
CHKRET 



jOK,NOW TEST SUCa CODE 
lEXIT 



104403 

10440S 

012767 
000415 

005302 
001413 
066700 
022121 
022323 
0006S4 

012767 
052767 
005767 
001407 
104403 

104403 

032767 
001411 
042767 
104403 



000000* 004556* 
000000* 000436' 
177777 175346 



MSGN$, BEGIN, CHKSMR jASCII MESSAGE CALL WITH COMMON HEADER 
}#«»»«•#«»»»»»»«»««»####»»#»«*»»»«•»*»»«•#»«»»»#«.#«»»#«'»#»«»##»»»## 

HPDERS, BEGIN, ERRTBL jCHECKSUM ERROR 

MOV #«1,ERRER | FATAL 

BR CHKRET lEXIT 

DEC R2 |HOe or PACKETS LEFT fO CHECK 

BEQ CHKRET lALL DONE 

ADD RCBCNT,R0 fPOIHT TO HEXf PACKET 

CMP CRU^iCRn* IPOIMT TO NEXT EXPECTED COUNT 

CMP (P3)4-,(R3)* lAND EXPECTED FLAG 

BR 1$ ;TRY ANOTHER, THEY'RE SMALL 



177777 175320 
000010 175200 
175310 

00000{^* 004616* 

000000' 000436* 



000010 175146 9SI 



000010 175136 
000000* 004602' 



OTLERR S MOV 
BIS 
CHKRET 



#»1,ERRER 
»BIT3,SY8TAT 

TST EPPWD 

BEQ 9$ 

MSGN$, BEGIN, DLERR 



003116* i0440S 000000* 000436* 



003124* 
003124* 



}HERE»STflANGi RESPONSE 

ISET O.T«L. FLAG 

jDLV ERROR! 

fNO"BRANCH 

lASCII MESSAGE CALL MIW COMMON HEADER 

HPDERI, BEGIN, ERPTBL |DLV ERROR 

I »#•»##«»»»»■»■*»##»»«#««»»»#««##«■#«»»«»#»«•«###»«#««*#«######«■«##»« 
BR 10$ lEXIT 

BIT SBIT3*SYSTAT |WAS THERE OTL ERROR? 

BEQ 10$ |NO»EXIT 

BIC »BIT3#SYSTAT |YES"RESET AND PRINTi 

HSGNI, BEGIN, OTL JASCII MESSAGE CALL WITH COMMON HEADER 

I *#«#»«■«#*»##«■»«»#«»»«»#»«»»»»««#»»#»*»»#»»«■»#»«»«■»»«»###«#*#»«« 

HPDERI, BEGIN, ERRTBL fUNKNOWN FLAG BYTE 



PTS 



PC 



003222" 104405 000004*' 



004634* 
000436* 



177737 000003 20«l 
004702* 
000436* 
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787 
788 

789 003126' 000240 

790 003130* 010067 175144 

791 003134* 116067 e^c^n^J 175134 

792 003142' 122760 0^0000 000003 

793 003150' 001561 

794 003152' 004767 000434 
795 

796 003156' 122760 000001 

797 003164* 001007 

798 003166* 104403 000000* 
799 

Bm 003174* 104406 000000* 
B01 

802 003202' 000544 

803 003204' 122760 

804 003212' 001010 

805 003214* 104403 
606 
807 
808 

809 003230* 004767 175464 

810 003234* 122760 177757 

811 003242' 001007 

812 003244* 104403 
fll3 
814 
81S 

816 003260* 000S15 

817 003262' 032767 

818 003270' 001413 
819 

820 003272' 103760 

821 003276' 100106 

822 003300" 104403 
823 

824 003306' 10440S 
82S 

826 003314* 004767 
827 

828 003320* 122760 

829 003336* 001007 

830 003330* 012767 
831 
832 
833 
834 

835 003346* 122760 

836 0033S4* 001007 

837 0033S6* 104403 

839 003364* 104405 

840 

841 003372* 000445 

842 
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UTILITY S'JBPOUTIhFS 

.•MODULE TO IimTEPPPET THF SUCCESS CODE OF hh END PACKET 

CHKSUCI NOP JSEE IF VALID SUCCESS CODE! 

MOV pPfPKPTP JCOPy TOP or PACKET POIM 

MOVP 3CP0)»SUCCS jGET SUCCESS CODE 

CMPP 8E$OK,3CR0) !GOOD SUCCESS? 

BEQ 12$ jYES-EXIT 

CALL EPRSET IPOTENTIAL HARD ERROR PRF.P, 



003252* 10440S 000000' 



000003 131 

004632* 

000436^ 



000002 174758 1311 



003336' 104403 



000000* 004624* 

000000* 000436* 

175400 

177740 000003 3$i 

000051 1745S0 

000000"* 000436^ 

177767 000003 4«l 

000000* 004SI6' 

000000* 000436^ 



CHPB #E|TRY,3(R05 jOK BUT RETRIES? 

BNE 20$ |N0 

MSGNS, BEGIN, RTPy |ASC1I MESSAGE CALL WITH COMMON HEADER 

I #«»«■*»«»■»«»#»»»«*«■»»#»«»»««»«■»«»»«»»»*»«*««»»*«*»*»*«•****«*«■**** 

SOFERS, BEGIN, ERRTBL jRETRIES OCCURRED 

J #»«»»»»»■»««««»»*»»«#««»«»«*««#»»»»»«»««»»»»«»»»»*»'»*»«■»«■»■»*««■»*» 

BR 12S lYES-EXIT 

CMPB «E$NOMO,3(R0) JNO MOTOR? 

BNE 1« >N0,,, 

MSGN8, BEGIN, NOMOT lASCII MESSAGE CALL WITH COMMON HEADER 

I #««#«#«#«««»«««««#«#»««#««««»««»«««««'««««««««#««««<» '»««'»^«««'»#«« 

HRDERI, BEGIN, ERRTBL J "NO MOTOR" ERROR 

CALL DROP sFATAL-COULD UNWIND CASSETTE 

CMPB #E$CKS#3(R0) {CHECKSUM ERROR? 

BNE 131 }N0 

MSGNi, BEGIN, DACHK {ASCII MESSAGE CALL WITH COMMON HEADER 

HRDCR$, BEGIN, ERRTBL {READ RETRIES FAILED 

I #»»»■»»»»«««»*»#»»*#»«»««■»»«»»»»»»»»»#»»*«■»»'»'»»»«•«»»»■»#**«■*'»*»«» 

BR 12$ {YES-EXIT 

BIT «BIT1,SYSTAT {SELF TEST? 

BEQ 31 {NO 

TSTB 3(R05 {NEGATIVE IF FAIL 

BPL 12S {OK 

MSGN$, BEGIN, SLFOTL {ASCII MESSAGE CALL WITH COMMON HEADER 

{#■»#«■»»«»*»»»»»»■»*»»»»*»«'»«»»«#*»»«««»»•»»■»#»«■»««»»#■»«•»»»»»*«'»«*« 

HPDERg, BEGIN, ERRTBL {SELF TEST FAIL 

CALL DROP {FATAL UNEQUIVICALLY 

CMPB #E$SK,3(R0} {SEEK ERROR? 
BNE 48 {NO 

MOV #51#ERRTYP {YES, 

{■»■»##■»#»#•»««»»*•»««*»#»*•»«»»»»**■»»»»»«»*#»»'»■»««»»■»■»»«»«•»»»###»■»«■# 

HRDEP$, BEGIN, ERRTBL {SEEK ERROR 

{##»»»»««■■»«■»«#»»»»##»■»##«»»»»«»«■»«•»■»■»««■#«»»»«■##»»»#»•»»»»«••»»»#»»» 

BR 10$ {EXIT-ERROR 

CMPB #EINCRT,3CR0) {NO CART? 

BNE 5$ {NO 

HSGNS, BEGIN, NOCAR? {ASCII MESSAGE CALL WITH COMMON HEADER 

I ««»»»«#»»»»#»##»«<»«»«##»»»»»«««««'■»*■»«#»»«»»«»»«■«•««»«»«*«»«»#«•»« 

HRDERS, BEGIN, ERRTBL {NO MEDIA 

{««»#•»«*»»*«»««■«»««■»»**'»»«#»«#»*«*«■*»«»■»»»»»»«»»«•*«»»«»«•■»*»»*«•■»# 

BR 108 {EXIT «ERROR 
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843 
844 
845 
846 
847 
348 
849 
850 
851 
852 
853 
854 
855 
856 
857 
858 
859 
860 
861 
862 
863 
864 
863 
866 
867 



003374' 

003402* 
003404* 
003412* 
003414* 
003422* 
003424* 104403 000000* 004S30* 

003432' 104405 000000* 000436' 



122760 177720 000003 

001436 

122760 177770 000003 

001432 

122760 177765 000003 



003440* 000422 

003442* 122760 177776 000003 

003430* 001413 

003452* 122760 177711 000003 

003460* 001407 

003462* 104403 000000* 004S42* 
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UTILITY SUBROUTINES 

{NO UNDERSTAND HOST? 

{YES 

{NON EXISTENT UNIT 

{YES 

{WRITE LOCKED 

{NO 

{ASCII MESSAGE CALL WITH COMMON HiADSR 
{»«■»»■»«■«»*■»»»»»##«■»»«'»*»»»»•»»#**#*#■»■•»«»*»»#*»»»««»#««■»#««•»»»»##» 
HRDERI, BEGIN, ERRTBL {WRITE LOCKED 



003470* 104405 00000'^' 000436^ 
000403 



003476* 
003S00* 
003500* 
003506* 
003S14* 
003514' 



SIS 


CMPB 


#ESCHD,3CR05 




BES 


11$ 


6$l 


CMPB 


#E$NONX,3(R05 




BEQ 


11$ 


7Si 


CMPB 


#E$WLOC,3CR05 




BNE 


8$ 



104403 000000* 004666* 
012767 177777 174644 



8$i 

fit 



10SS 
12St 



MSGNg, BEGIN, WRPRO 



{EXIT»ERROR 

{PARTIAL OPI 

{YES 

{WRONG RECORD 

{EXIT 

{ASCII MESSAGE CALL WITH COMMON HSADER 
{#«»##«»#«»■»»»»»#»»■»»«■***»»»»«»»««■»««•»»«»'»»»«»»»«■»««.»«#»»'»#«»#«■» 
HRDERI, BEGIN, ERRTBL {UNKNOWN SUCCESS CODE 

{'»#%«»««#««#4»«#«#«###«###«ft»ft«#«»«#»#««#««»'»#«««»««'»###»ft«««'»«## 
BR 10$ {EXIT "ERROR 



BR 

CMPB 

BEG 

CMPB 

BEQ 



10$ 

#C$PART«3(R0) 

US 

#E$R£C,3(R0} 

119 



MSGN$, BEGIN, SUCOTL 



MSGN$, BEGIN, BDSUC 
MOV #«»1,ERRER 



{ASCII MESSAGE CALL WITH COMMON HEADER 
{OPERATION FATAL 



TUAA DEC/Xll SYSTEM EXERCISER MODUI.F 
XTUAA0,pn IS^JUM"?*? 12i26 

868 
869 
870 
871 
872 
873 
874 
875 
876 
877 
878 
879 



MftCYli aP'ACll^SJ) 15«JUN«79 I2f36 PAGr 24 
UTILITY S^BP0UTT^'5^.S 

fCHKSUM / FORM jhF PACKET CHECi<SUW 



ENTEPl 
P0 POINTS TO PACKET 
PI a BYTES IN PACKET 

FXITl 
Rl a CHECKSUM" 
P0 POINTS TO ADDPESS FOP PACKET CHECKSUM 



SEg «023 



88! 003516' W10346 

882 003520" 010246 

883 003522* 042767 

884 003530' 032701 

885 003S34* 001403 

886 003536* 052767 
887 

888 003544' 006001 

889 

890 

891 

892 

893 

894 

893 

896 

897 

898 

899 

900 

901 

902 

903 

904 

905 

906 

907 



003546' 005003 

003550' 062003 

0035S2' 005503 

003SS4' 005301 

003556' 001374 

003560' 032767 

003S66' 001405 

003570' 112002 

003572* 042702 

003576* 060203 

003600* 005503 

003602' 010301 

003604' 012602 

003606* 012603 

003610* 000207 



n 174516 

000001 



000001 174502 



1 



iSl 
3$! 
SSI 



000001 174460 



MOV 
MOV 
EIC 
BIT 
BEQ 
BIS 

POP 

CLP 

ADD 
ADC 
DEC 

BNE 

BIT 

BEQ 

MOVB 

BIC 

ADD 

ADC 

MOV 
MOV 
MOV 
PTS 



P3»"CSP) 
R2f"'(SP) 
«PIT0,sySTAT 
»RIT0#R1 

#PIT0,sySTAT 

Rl 

R3 

(R05-!-»P3 

P3 

Rl 

3§ 

SP1T0,SYSTAT 

4$ 

(P0)+,B2 

#177400#p2 

R2»P3 

R3 

P3»Bl 
(SP)'i'»R2 
(SP5*,R3 
PC 



I "CHECKSUM IS ODD" BIT 

jAN ODD » OF BYTES? 

?M0 

jJUST USED AS TEMP STORAGE 

;/2 FOR WORDS 



jFORM SUM 
IWITH CARRY 
jONE LESS WORD 
fBR IF MORE LEFT 

;was it odd 

;no 

fYES'COPY TO R2 

ISIGN UN"EXTEND 

}ADD LAST BYTE 

lAND CARRY JUST IN CASE 

{RETURN IT IN CORRECT PLACE 



TUAA DEC/Xli SYSTEM EXERCISER MODULE 
XTUAA0„Pl! 15«JUN"79 12126 



908 
909 
910 
911 
912 
913 
914 
915 
916 
917 
918 



003612* 
003620' 
003626' 
003634' 
003642' 
003650' 
003656* 
003664* 
003672' 



016767 
017767 
016767 
017767 
017767 
062767 
017767 
162767 
000207 



174416 
174410 
174444 
174442 
174432 
000002 
174416 
000002 



174260 
174254 
174250 
174514 
174514 
174422 
174502 
174406 



M&CYll 30A(i052) 15«JUN«'79 12136 PAGE 25 
UTILITY SUBROUTINES 

•MODULE TO FILL EPRTBL WITH EXTENDED ERROR INFORMATION 

ERPSETI MOV RCSR,CSRA ICOPY CSR 

MOV 9RCSR»ACSR JAND CONTENTS 

MOV SUCC5,ASTAT |AND SUCCESS IF APPLICIBLE 

MOV PXiPTRfERRFLG ICOPY EXPECTED FLAGBYTE 

MOV 0PKPTR,ATPAK jlST AND 2ND BYTES OF ACTUAL PACK 

ADD »2»PKPTR JPOINTER INC* 

MOV 0PKPTR,ATPAK2 fCOPY 3RD AND 4TH BYTE 

SUB #2»PKPTR JCORRECT POINTER 

PTS PC 



TUAA DEC/Xll SYSTEM EXERCISES MODULE 
XTUAA0«Pn iS-JliN'-Tg 12126 



919 
920 
921 
922 
923 
934 
92S 
926 
927 
928 
929 
930 
931 
932 
933 
934 
935 
936 
937 
938 
939 
940 
941 
942 
943 
944 
945 
946 
947 
946 
949 
930 
951 
952 
953 
954 
935 



MACYll 30A(1PI?2) 15-JUM-79 12S36 PAGE 26 
UTILITY SUBROUTINFS 

jMODULE TO CHECK THE CHKSUM OF A RECEIVED PACKET 

I ENTERI 

I P4 H PACKET PYTE COUNT 

5 P0 POINTS TO TOP OF PACKET 

I 

J CALLS! "CHKSUM" 

? TO FOPM CHECKSUM, 



EXITI 
CARRY SET 
RESET 



ERROR 
NO ERROR 



003674* 

003674* 010146 

003676* 010046 

003700* 010401 

003702' 004767 



003706' 122001 
003710' 001005 

003712' 000301 

003714' 122001 
003716* 001002 
003720' 000241 
003722' 000401 
003724" 000261 
003726' 

003726' 012600 
003730' 012601 
003732' 000207 



MOV R1»"(SP) 

MOV R0,«CSP5 

MOV P4,R1 

CALL CHKSUM 



jCOPY byte COUNT TO CORRECT 
JREGISTER FOR CHKSUM AND CALL 



•HERE R0 "•»> XMITTED CHKSUM, RlaCHKSUM CALC'D 

ILOWER ORDER CHECK 
?NE COHPAPEZ PASI 

jOK«.NOW FOR OTHER HALfl 

jHIGH ORDER CHECK 
J WRONG-BRANCH 
;N0 ERROR FLAG 
|EXIT"NO ERROR 
lERROR FLAG 





CMPB 


(R0)4',R1 




BNE 


2$ 




SWAB 


Pi 




CMPB 


(R0J*,R1 




BNE 


23 




CLC 






BR 


3$ 


231 


SEC 




311 








MOV 


(SP)«t'»R0 




MOV 


(SP)4-,P1 




RTS 


PC 



TUAA DEC/Xll SYSTEM EXERCISER MODULE 
XTUAA0,P11 15»JUN»79 12826 



956 
957 
938 
959 
960 
961 
962 
963 
964 
965 
966 
967 
968 
969 
970 
971 
972 
973 
974 
975 
976 
977 
978 
979 
980 
981 
982 
983 
984 
98S 
986 
987 
988 
989 
990 
991 
992 
993 
994 
995 
996 
997 
998 
999 
1000 



003734* 
003734* 
003736* 
003740* 
003742* 
003746' 
003752* 
003756' 
003760' 
003762' 

003766' 
003770* 
003774' 
003776* 
004002' 
004004* 
004006* 
004012* 
004016' 
004020' 
004024' 
004026' 
004030' 
004034' 
004036' 
004044' 
004052' 



010046 
010446 
010146 
005067 
010067 
016704 
005204 
111401 
042701 

005204 
126724 
001413 
005767 
001006 
005304 
111467 
010467 
005204 
005267 
005301 
001360 
005767 
001422 
016767 
012767 
016767 



174422 
174326 
174322 



174300 
174366 



174076 
174066 



174344 



174230 
000274* 
174216 



004060' 104404 000000' 
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UTILITY SUBROUTINES 

iCOMPAR / COMPARE PATTERN WRITTEN TO DATA RECV*'D 

COMPARS 



MOV 

MOV 

MOV 

CLR 

MOV 

MOV 

INC 

M0V8 

BIC 



R0,»'£SP) 

R4,"CSP) 

RlfCSP) 

BDBYIS 

R0fPKPTR 

PKPTR»R4 

R4 

iR4,Rl 

#177400, Ri 



3$t 

2$l 



174036 
174030 
174026 



004064" 104421 
004072' 000262 



000000' 000370* 



004074' 104403 000000' 004644* 

004102* 

004102' 012601 

004104' 012604 

004106* 012600 

004110' 000207 



I NONE WRONG YET 

|R0">TOP OF PACKET 

fGET TOP OF PACKET 

ILOCATE COUNT 

I GET IT 

ISIGN UN«EXTEND 

IMUST TEST BYTE'WISE,*, 
INC R4 |»»>FIRST DATA BYTE 

CMPB PATRN,£R45* fWAS WHAT WAS WRITTEN! 
BEQ 21 lOKI 

TST BDBYTS jWRONG-FIRST ERROR? 

BNE 3$ }N0, DETOUR ISf ADDRESS SETUP 

DEC R4 |UN»AUTO INCREMENT 

MOVB iR4fAVJAS ISAVE BAD BYTE 
MOV R4,WASADR |AND SAVE ADDRESS 
INC R4 ICORRECT POINTER 

INC BDBYTS jONE MORE BAD BYTE 

DEC Rl IMORE LEFT? 

BNE IS JYES 

TST BDBYTS I ANY WRONG? 

BEO 4$ |N0. EXIT 

MOV RECfACSR I YES-GET RECORD # 
MOV #PATRN,SBADR jADDR SHOULD BE 
MOV PATPN,ASB IDATA SHOULD BE 

I «»«»#»»»«*«■»«»*»«»#«»■»»«•»««»»»«»«»■»»««'»**»*»««»»#■»**■»««»»«•»«'»«•* 
DATERI, BEGIN iDATA ERRORHl 

ICONVERT BDBYTS TO ASCII AND 
ISTORE AT A$BDBT 
BTOD$» BEGIN, BDBYTS, AIBDBT 

MSGN$, BEGIN, BADBY {ASCII MESSAGE CALL WITH COMMON HEADER 



MOV 


(5P) + 


Rl 


MOV 


(SP) + 


R4 


MOV 


(SP)* 


P0 


PTS 


PC 





fUkh DEC/Xll SYSTEM EXEPCISEP MODULE 
XTUAA0,PU 15"JUN^79 12126 



1001 
1002 
1003 
1004 
1005 
1006 
1007 
1008 
1009 

1010 

1011 
1012 
1013 
1014 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
102S 
1026 
1021 
102i 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
104S 
1046 
1047 
1048 
1049 
1050 
1051 
1032 
i'053 
1054 
1055 
1056 



004U2' 
004120* 
004126* 
004134' 
004142' 
004144' 
0041S2' 
004160* 
004161' 
004166* 
004174' 
004202* 
004203* 
004210' 
004216* 
004224* 
004230* 
004236' 
004244' 
004251' 
004256* 
004264' 
004272* 
004300' 
004302' 
004310' 
004316' 
004324* 
004332' 
004333' 
004340' 
004346' 
004334' 
004355* 
004362* 
004370* 
004374* 
004402* 
004410* 
004416* 
004424* 
004432' 
004440* 
004442' 
004430' 
004456* 
004461* 
004466* 
004474* 
004473' 
004477' 
004504' 
004511* 



052045 
047503 
046114 
042040 



042043 
051122 
000 
043 
0S2040 
040506 

000 

043 
0S1040 
020123 
027120 
041445 
052523 
047522 

04S 
053111 
047111 
050505 
000045 
031045 
031505 
042514 
047440 

000 

045 

032117 

032103 

000 

045 

051101 

042507 

033443 

050040 

032103 

0S2043 

041040 

052131 

000040 

051440 

051323 

02250S 

040 

041040 

000 

045 

045 

033517 

102 



032523 
052116 
051105 
044322 

033114 
051117 

042523 
051505 
046111 

042522 
052105 
047117 
00004S 
042510 
020115 
022522 
042522 
047111 
052111 
042S25 

032105 
043040 
020104 
027120 

047316 
031117 
047311 

047316 
051124 
000043 
044522 
047322 
042105 
032117 
042101 
051505 

041525 
041440 
000 
046106 
052131 



020070 
047522 

000040 

042326 

042440 
022440 

043114 
020124 
020043 

042101 
054522 
047440 

045303 
051105 

000 

042S03 
020107 
0S1040 
032123 

044322 
044501 
047117 
02004S 

046440 
040440 
022SI6 

041440 
042111 

042324 
042524 
000045 
046101 
041040 
036440 

042503 
042117 

043501 
022505 



000 

047125 047113 

020116 000 

042101 000040 
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MESSAGE FOPWAT 

aSBTTL MESSAGE FORMAT 

MESli ,ASC2Z *%TU58 CONTPOLLER * 

MES2I »ASCIZ ' DPIVE ' 

MES3I .ASCIZ '%DLV EPROB %' 

M£S4i «ASCIE *%SELF TEST FAIIi% * 

MESSi .ASCIE *%PEAD PETRYS ON OP,!*" 

MES71 , ASCII ^CHECKSUM ERROR%' 

MESS! gASCIE *%RECEIVING INIT REOUEST%* 

MES9I ,ASCIE *%BETPIES FAILED ON 0P,% * 

MES10I eASCIE *%N0 MOTOR ACTIONf* 

MESH 8 .ASCIE '%N0 CARTPIDGEI* 

MES12I eASCIE *%VJRITE PROTECTED!" 

MESi3l ,ASCIE HTOTAL BAD BYTES » * 

MES18I »ASCIE * SUCCESS CODE%* 

MES19g ,ASCIE * FLAG BYTE%* 



MES20I «ASCIE '%' 

MES21I «ASCIE *%UNKNOWN * 



MES22i ,ASCIE 'BAD 
,EVEN 



TUAA DEC/Xll SYSTEM EXERCISER MODULE 
XTUAA0«P11 %5^Jun-'19 12126 



1057 






1058 






1059 


004516* 


004112* 


1060 


004520' 


004134' 


lk)61 


004522' 


000252* 


1062 


004524* 


00435S' 


1063 


004526' 


177777 


1064 






1065 


004530' 


004112' 


1066 


004532* 


004134' 


1067 


004534* 


000252' 


1068 


004536' 


004374* 


1069 


004S40' 


177777 


1070 






1071 


004542' 


004112' 


1072 


004544* 


004134 


1073 


004546* 


0002S2 


1074 


004550* 


004477 


107S 


004552* 


004442 


1076 


0045S4* 


177777 


1077 






1078 


004S56' 


004112 


1079 


004560* 


004134 


1080 


004562' 


000252 


1081 


004564* 


004230 


1082 


004566* 


177777 


1083 






1084 


004570' 


004112 


1P8S 


004572' 


004134 


1086 


004574' 


000252 


1087 


004576' 


004251 


1008 


004600' 


177777 


1089 






1090 


004602* 


004112 


I09i 


004604' 


004134 


1092 


004606* 


000252 


1093 


004610' 


004477 


1094 


004612' 


004461 


1095 


004614' 


177777 


1096 






1097 


004616* 


004112 


1098 


004620* 


004144 


1099 


004622' 


177777 


1100 






1101 


004624* 


004112 


U02 


004626' 


004161 


1103 


004630' 


177777 


U04 






1105 


004632' 


004112 


1106 


004634' 


004134 


1107 


01^4636* 


000252 


1 108 


004640' 


004302 


1109 


004642' 


177777 


1 110 






nil 


004644* 


W04416 


1112 


004646' 


P('1026 2 



MACYll 30A(10S2) 15«JUN».79 
MESSAGE CONSTRUCTS 



,S8TTL MESSAGE CONSTRUCTS 



NOCARTI 


MESl 




MES2 




A$DRV 




MESH 




»l 


WRPPOi 


I^ESi 




MES2 




ASDRV 




HES12 




»| 


SUCOTLi 


MESl 




MES2 




A$DRV 




MES21 




MES18 
«1 


CHKSMRl 


MESl 




MES2 




A$DRV 




MES7 




«t 


RCINITI 


MESl 




MES2 




A$DRV 




MESS 




»1 


OTLl 


MESi 




MES2 




AIDRV 




MES21 




MES19 




»i 


DLEPRs 


MESl 




MES3 


SLFOTLi 


MESl 




MES4 
»1 


DACHKs 


MESl 




MES2 




ASDRV 




MFS9 
»1 


BADRY! 


MES13 




ASBDBT 



12136 PAGE 29 



;CARTRID6E NOT INSERTED 



JCARTRIDGE WRITE PROTECTED 



jCOULD NOT INTERPRET SUCCESS CODE 



I HOST CALCULATED CHECKSUM FOR 

IPACKET DOESN'T EQUAL TRANSMITTED ONE* 



IHOST RECEIVED «INIT« REQUEST 



J 1ST BYTE OF PACKET UNINTERPRETABLE 



jOVERRU"^ OR FRAMING ERROR IN RECEIVE 



jDEVICE'S SELF TEST FAILED BUT COULD 
ISTILL SEND AN INTELIGENT PACKET Ci) 



JDEVICE RETRIED OPERATION 8 TIMES 
JAND FAILED 



jMESSAGE FOR THE TOTAL INCORRECT 
JDATA BYTES PER PACKET, 



Whh DEC/Xll SYSTEM EXERCISER MODULE 
XTUAA0,PU i5«JuN»79 12l26 



iil3 


004650' 


00447S' 


1114 


004652^ 


177777 


1115 






1116 


004634' 


004112* 


1117 


004636' 


004134' 


1118 


004660" 


000252* 


1119 


004662' 


004203' 


1120 


004664' 


177777 


1121 






1123 


004666' 


004U2' 


1123 


804670' 


004134* 


1124 


004672' 


0002S2' 


1123 


004674' 


004511' 


112d 


004676' 


004442* 


1127 


004700' 


177777 


1128 






1129 


004702' 


004112* 


1130 


004704' 


004134' 


1131 


004706' 


000232' 


1132 


004710' 


004333' 


1133 


004712' 


177777 



MACYU 30A(10523 i5'»JUN»79 
MESSAGE CONSTRUCTS 



MES20 
"1 



RTRYt 



BDSUCi 



HESl 

HES2 

A$DRV 

MESS 

-I 

MESl 

MES2 

AgDRV 

MES22 

MES18 

»1 

HESi 

MES2 

A$DRV 

MES10 

»1 



12136 PAGE 30 



jDEVICE RETRIED OPERATION SUCCESIFUSiIif 



{SUCCESS CODE VALID BUT OPERATIOM FAILED 



IDEVICE COULDN'T GET ANY MEANINGFUL SIGMAL 
jFROM TAPE 



SEQ 0039 



TUAA DEC/Xil SYSTEM EXERCISER MODULE 
XTUAA0«P11 1S«JUN".79 12S26 



MACYU 30A(10525 
BUFFER AREAS I 



iS»JUN»79 12136 PAGE 31 



SEQ 0030 

















004714* 


000304 




00S120' 


000000 










003122' 


001036 




006160' 


000000 






000001 



«SBTTL BUFFER AREAS I 
TRBUri 



sBLKB 1329 
,WORD 



RCVBUfl eBLKB 4«R3DAii<$-R$IIOSg 



IDATA PACK SIEE MAX. 
t4 Jihfk PhCm AND %m 



LSTADRi 
,END 



fUAA DEC/XU SYSTEM EXERCISER MODULE 
XfUA&0aPll i5"JUN»79 12126 
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CROSS REFERENCE TABLE »« USER SYMBOLS 



SSQ 0031 



liCSR 


000102R 


ADDR 


000006R 


ADDR32» 


001000 


h&B 


000106R 


ASTAT 


000104R 


ATPAK 


000364R 


AfPAK2 


000366R 


AltAS 


000110B 


A$BDBT 


000262R 


A$DRV 


0002S2R 


BADBY 


004644R 


BDBYfS 


000370R 


BDSUC 


00466SR 


BEGIN 


0000@0R 


BIT0 ® 


000001 


BITl s 


000002 


BlTi0 s 


002000 


BITll a 


004000 


BIT12 8 


010000 


BIT13 8 


020000 


BIT14 B 


040000 


BITJ5 ffi 


100000 


BIT2 ® 


000004 


BIT3 a 


000010 


BIT4 a 


000020 


BITS s 


000040 


BIT6 » 


000100 


BIT7 a 


000200 


BITS is 


000400 


BIT9 a 


001000 


BREAKS8 


104407 


BRKWD 


000372P 


BRl 


000012R 


BR2 


000013R 


BT0D8 ffl 


104421 


CDATASK 


104412 


CHKANS 


002532R 


CHKRET 


003046R 


CHKSMR 


0045S6R 


CHKSUC 


003126R 


CHKSUM 


003S16R 


CKCKSM 


003674R 


CLBBUr 


002506R 


CMNDFLb 


100000 


COMPAR 


003734R 


CONFIG 


0000S6R 


CSRA 


000100R 


DACHK 


004632R 


DATCK$«B 


104411 


DATEBis 


104404 


DECCMD 


00150SR 


DECOD 


001306R 


DECRET 


002032R 



215« 


9ll# 


983» 














18H 


481 
















2339 


















219# 


98S» 
















217« 


912« 
















2849 


398 


914* 














285S 


399 


916* 














220» 


975* 
















258« 


992 


1112 














254« 


S56 


1061 


1067 


1073 


1080 


1086 


1092 


1107 


995 


llll« 
















2868 


506» 


962* 


972 


978« 


981 


992 






864 


1122# 
















178# 


416 


420 


440 


446 


462 


463 


467 


468 


662 


669 


670 


679 


716 


718 


735 


737 


754 


783 


798 


800 


80S 


807 


812 


314 


823 


824 


8S1 


858 


860 


864 


987 


992 


993 






233» 


409 


489 


647 


657 


883 


884 


886 


897 


233# 


413 


493 


497 


569 


572 


817 






233# 


















233# 


















233# 


















233# 


















233» 


















233« 


















233# 


















233# 


769 


778 


780 












233» 


















233« 


















23311 


















233# 


















233# 


548 
















233S 


















233S 


462 


463 


467 


468 


6S0 


651 


661 


662 


290« 


654 
















183# 


477 


480 














184# 


















233» 


S5S 


992 














233# 


















428«» 


696» 
















721 


725 


740 


751 


7S9 


762 


770# 






716 


734 


1078« 














724» 


750* 


789» 














529* 


S66# 


880« 


938® 












714» 


747« 


934S 














426« 


687« 
















304» 


362 


363 


368 


369 


370 


373 


379 




728» 


9589 
















203# 


















2l3ff 


910« 
















812 


1105» 
















2338 


















233# 


987 
















517 


541# 
















424* 


437» 


510« 














514 


S97# 

















1118 



1U4 



1131 



3S6 630 631 66| 
736 772 774 711 
332 837 83f $4f 
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SEQ 0032 



DECRTl 


002012R 


DI IS 


000100 


DLERR 


004616R 


DOBRK 


002272R 


DROP 


000720R 


DRV 


0002S0R 


DRV0 ffl 


000000 


DRVl IS 


000400 


DRIOP 


000434R 


DTAFLla 


000001 


DTAFL2B 


000010 


DTAFL3« 


000011 


DTAFL4« 


000100 


DVIDX 


000244R 


DVIDl 


0000 14R 


DiDATAiB 


000000 


EI » 


000100 


ENDIT$sB 


104413 


ENDS s 


104410 


EBRER 


000360R 


ERRFLG 


0003S6R 


ERROP 


000354R 


ERRSET 


003612R 


ERRTBL 


000433R 


ERRTB2 


0004S6R 


ERRTYP 


000t06R 


ERRWD 


000362R 


EXIT! a 


104400 


E$A80 85 


177720 


E$CKS s 


177757 


ESCKSMs 


1777S7 


E$CMO » 


177720 


E8NCRT8 


177767 


EINOMOs 


177737 


E$NONXa! 


177770 


SSOK a 


000000 


S$PARTs 


177776 


E$RD as 


177737 


ESREC n 


177711 


ESSK 88 


177740 


ESSLF as 


177777 


ESTRY ^ 


000001 


E8WL0CS 


177763 


ESWR IB 


177757 


FSTFLG 


000232R 


GETPA$a 


104415 


GVNTAK 


000740R 


GWBUF85B 


104414 


HRDCNT 


000044R 


HRDERSs 


104405 


HRDPAS 


Pi00050R 


ICONT 


H00036R 


ICOUNT 


V500040P 


IDNUM 


000i22R 



536 


340 


376 


382 


S94# 








293# 


444 


443 


606 


609 


643 


646 




772 


1097# 














43S# 


S03« 


643# 












4449 


4f9« 


682* 


80f« 


S26» 








2S3# 


347» 


SS1» 


336 










3039 


363 


363 


364 


363 


366 


367 


3iS 


3@6# 


3S9 


370 


37i 


372 


373 


374 


37S 


37f« 


493 


301 












3001 


364 


371 












301« 


363 


372 












303# 


366 


373 












303» 


367 


374 


331 










344# 


404* 


4@9# 


413# 


489 


491 


497 




185# 


404 














299# 


364 


363 


366 


367 


371 


372 


373 


297» 


459 


460 


636 










233» 


440 














333# 


446 














282S 


429 


433* 


504* 


720« 


739« 


7iS* 


7iS 


281# 


388 


913# 












280# 


384 


S94# 












676* 


706* 


794» 


910» 










384# 


679 


718 


737 


756 


774 


783 


800 


851 


860 














392# 
















218# 


435^^ 


S08« 


677« 


830«^ 








283^ 


391 


S0S» 


6i0# 


611 


612 


616« 


770 


233» 
















343» 
















353i 


353 


356 


3S7 


810 








355» 
















351# 


843 














344» 


835 














330» 


803 














345# 


843 














342# 


792 














346# 


854 














357# 
















352» 


856 














347# 


828 














3S4# 
















3488 


796 














349« 


847 














356# 
















239# 


450* 


617 


619# 


633«^ 








233» 
















427* 


450» 














233» 
















198# 
















233» 


679 


718 


737 


7S6 


774 


783 


807 


860 
















200» 
















195# 
















196» 
















2258 


403 















37f 



374 



834 832 839 



832 839 851 



TUAA DEC/Xll SYSTEM EXERCISER MODULE 
XTUAA0,Ptl 15«JUN"79 I2l26 



MACYll ag'ACiyS?) lS"JUN«-79 12136 PAGE 35 

CROSS REFFRFNCE TABLE "^ USER SYMBOLS 



SEQ 0033 



INIT 


000030R 


INITWD 


000374R 


INTR 


000120R 


LASTOP 


000230R 


L5TADR 


006i60R 


MAP22$8 


104416 


HESl 


004112R 


MES10 


004333R 


MESll 


00435SR 


MES12 


004374R 


MESi3 


@04416P 


MESiS 


004442R 


MES19 


004461R 


MES2 


004134R 


MES20 


004473R 


MES21 


004477R 


HES22 


0043UR 


MES3 


004144P 


MES4 


004i61R 


MESS 


004203R 


MES7 


004230R 


MES8 


0042S1R 


MES9 


004302P 


MODNAH 


000000R 


MODSP 


000224R 


MSGN$ m 


104403 


HSGSi m 


104402 


MSGS » 


104401 


NOCART 


004516R 


NOMOT 


004702R 


NULL a 


000000 


OPEN s 


000000 


OPTBL 


0P0376R 


0PTBL2 


000414R 


OTL 


004602R 


OTLERR 


003032R 


OTOA$ SI 


104430 


PASCNT 


000034R 


PATRN 


000274R 


PIRQ$ 91 


000004 


PKCHKD 


000320R 


PKPTP 


000300R 


PKRCVD 


000226R 


PKSNT 


000234R 


POPSP a 


005726 


P0PSP2S! 


022626 


PRTY 8. 


000000 


PRTY0 as 


000000 


PRTYl 8 


000040 


PRTY2 JB 


000100 


PRTY3 88 


000140 


PRTY4 m 


000200 


PRTY5 s 


000240 


PRTY6 B 


000300 



192# 

29l» 

224« 

238# 

1140« 

233« 

1003» 

1032# 

1036# 

1039# 

1043# 

1(»4#« 

1049S 

1006# 

1052# 

1053« 

105S# 

10089 

10ll# 

10158 

1019S 

1022S 

10278 

179# 

193 

233# 

864 

233t> 

233# 

837 

805 

233# 

180 

215 

3620 

369» 

781 

727 

233$ 

194# 

263# 

233# 

273» 

265» 

237« 

2369 

233# 

233# 

233ff 

184 

233# 

233# 

233# 

183 

233# 

233# 



390 
438 



1039 
1132 
1062 
1068 

nil 

1075 
1094 
1060 
IU3 
1074 
1125 
1098 
1102 
1119 
1081 
1087 
1108 

231# 

716 

995 



10S9# 
1129« 

186 
217 
491 
492» 
1090# 
743 



386 

397 
389 

452« 
4S1» 



233# 



644* 
513* 



665 
596* 



1065 1071 1078 1084 10 



1097 1101 1105 1116 1122 1129 



1126 

1066 1072 1079 1085 1091 1106 111? 1123 1130 

1093 



733 754 772 781 798 80S 812 822 



837 849 



187 
219 



421® 

697© 
703» 
469 
464 



188 
220 



422* 

704* 
790» 
614* 
605» 



189 
222 



206 
223 



207 
224 



208 209 

233# 



914 
638® 



9l5# 



984 985 

916 9n» 963» 964 
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•% 



PRTY7 s 


000340 


233# 














PS s 


177776 


233# 














PSW m 


177776 


233# 














PUSH s 


00S746 


233» 














PUSH2 H 


024646 


233# 














RANDS SB 


104417 


233# 


416 


420 










RANNUM 


0000S4R 


202» 


417 


421 










RCBCNT 


000324R 


275« 


393 


70S* 


712 


763 






RCDB 


000236R 


24H 


484« 


610 


658 


673 






RCINXT 


004S70R 


735 


1084# 












RCPKNM 


000316R 


272S 


453* 


623« 


630« 








RCSR 


000234R 


240« 


444» 


460# 


482» 


609« 


636« 


646# 671 


RCVBUF 


00S132R 


457 


688 


698 


1139« 








RCVCNT 


000322R 


274» 


392 


454» 


622* 


626* 


628» 


633« 


RCVHND 


002070R 


476 


609« 












RCVOK 


002136R 


613 


616» 












RCVPTR 


000314R 


271# 


387 


457« 


611» 


620 


624 


627* 


RCVRET 


002270R 


615 


637 


640S 










REC 


000272R 


262# 


383 


417* 


418« 


562 


983 




RESTRT 


000562R 


221 


415# 


442 










RESl 


0000S6R 


204# 














RES2 


000060R 


205« 














RSTRT 


000112R 


221# 














RSTRT2 


000630R 


426# 


439 












RTRY 


004634R 


798 


1116« 












R«CMNDs 


000002 


314# 


320 


542 










RSCONT® 


000020 


315# 


537 


S79 


674 


709 






R$DASZb 


000204 


326S 


327 


1139 










RIDATAa 


000001 


319» 


519 


585 


726 








R8DNSEB 


000222 


327# 














R8END a 


000002 


320# 


533 


573 


590 


624 


722 


742 


RIINITis 


000004 


291 


318# 


733 










R$MSIZ)s 


000012 


325« 


328 


543 


563 








RINDSEb 


000016 


324# 


327 


534 


574 


591 


626 


745 1139 


RSSNSZa 


000016 


328# 


365 












RSXOFFs 


000023 


317* 














RIXON a 


000020 


316# 














R$$ENDia 


000100 


332# 














R$|NIT« 


000001 


337« 














R$$N0P3S 


000000 


336S 














R8$RD a 


000002 


334# 


368 


375 










R$$SEKiB 


000005 


3358 














R$$SLF>s 


000007 


338« 


362 


369 


379 


S7M 






RS$WR s 


000003 


333# 


363 


370 


577 








SBADR 


000102R 


214# 


984« 












SLFOTL 


004624R 


822 


110l# 












SNDCNT 


000312R 


270# 


526# 


565« 


603« 








SNDHND 


002034R 


479 


601« 












SNDPTP 


000310R 


269# 


458» 


601 


602* 








SOFCNT 


000042R 


197» 














SOFERSis 


104406 


233# 


800 












SOFPAS 


000046R 


i99# 














SPOINT 


000032R 


193# 


403 












SPSIE ^ 


000040 


1» 


226 












SRI 


000016R 


1S6S 














SP2 


000020R 


1878 















910 



911 
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SR3 


00f»022R 


SR4 


000024R 


STAPT 


000500R 


STAT 


000026R 


succs 


000276R 


SUCOTL 


004542R 


SVR0 


000062R 


SVRl 


000064R 


SVB2 


000066R 


SVR3 


000070R 


SVR4 


000072R 


SVB5 


000074R 


SVfl6 


00007SR 


SYSCNT 


0000S2R 


SYSINI 


001072R 


SYSSET 


001246R 


SYSTAT 


00024&R 


TBLPTR 


000306R 


TBLTOP 


000304R 


TBBUF 


004714F 


TPPDFDia 


000022 


VECTOR 


000010R 


HASADR 


000104R 


WDFR 


000116R 


WDTO 


000iHR 


WRPRO 


004530R 


XFLAG 


00000SR 


XMDB 


000242R 


XMSR 


000240R 


XSCNT 


000332R 


XSFLG 


000330R 


Xg^KNM 


000326B 


XSPTR 


000302R 


m 006162R 


8 ABS« 


000000 




006162 
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SEQ 0033 



188« 

189» 

192 403# 

I9l« 

264» 453» 

858 1071# 

206# 

207» 

208# 

2098 

210» 

2ll« 

212« 

2«'1# 

414* 47S» 

494 496 

249« 434* 

268« 432» 

267# 432 

4S8 51S 

233# 

182» 475 

2168 976« 

223# 

222» 

849 i06S# 

180# 

243# 488» 

242# 445» 

278* 396 

277« 395 

276# 394 

266» 456» 

254« 258# 



S02# 
507« 
502® 
491* 
518 



601* 

4S9* 

454 

456 

455 

620 



569$ 
510 



654» 
486* 
534* 
533* 
S35« 
632* 



572» 769* 

512* 516 

502 512 
1136# 



665« 
606* 
538« 
S37» 
539* 
633 



778 

531 



780» 
544 



817 
548 



383« 
570 



e86« 
377 



897 
594 



595* 



64S« 
574* 
573« 
575* 
634« 



647« 
380« 
579« 
S8l» 
913 



584 
S92* 



657» 



700 
699 



279# 1136» 1139# 
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